perm filename TFLAT.LSP[E78,JMC] blob sn#367504 filedate 1978-07-11 generic text, type T, neo UTF8

(DEFUN TFLAT (X U) 
       (CONS (LIST X U)
	     (COND ((ATOM X) (LIST (CONS X U)))
		   (T ((LAMBDA (Z) (CONS Z
					 (TFLAT (CAR X)
						(CAR (LAST Z)))))
		       (TFLAT (CDR X) U))))))